! Before running this program, include randgen.f into the project.
program tstrandom
	implicit none
	double precision:: dRand
	double precision:: dDummy
	integer:: iSEED(1)
	double precision, external:: ZBQLU01
	external:: ZBQLINI

	! Initialize the random generator
	iSEED(1) = 0
	call ZBQLINI(iSEED)
	! Call ZBQLU01 to generate a random number that is uniformly distributed
	! in [0,1]
	dRand = ZBQLU01()
	! Output
	write(*,*)dRand
end program tstrandom

